Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Math/Unit Conversion/card_5893.txt

Text File | 1990-11-02 | 9.6 KB | 405 lines

-- card: 5893 from stack: in
-- bmap block id: 7608
-- flags: 0000
-- background id: 3044
-- name: Weight
----- HyperTalk script -----
on closeCard
  put empty into background field "toconvert"
  put empty into background field "answer"
end closeCard



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=75 top=288 right=304 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Distance
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Distance
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=75 top=306 right=323 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Volume
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Volume
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=306 right=323 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Temperature
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card temperature
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=288 right=304 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Area
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card Area
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=282 top=49 right=76 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grams to Ounces
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Grams" into background field "toconvert"
  else
    put temp && " Grams" into background field "toconvert"
  end if
  multiply temp by 0.03527
  put temp && " Ounces" into background field "answer"
  put empty into temp
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=282 top=77 right=104 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ounces to Grams
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Ounces" into background field "toconvert"
  else
    put temp && " Ounces" into background field "toconvert"
  end if
  multiply temp by 28.35
  put temp && " Grams" into background field "answer"
  put empty into temp
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=282 top=107 right=134 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grams to Pounds
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Grams" into background field "toconvert"
  else
    put temp && " Grams" into background field "toconvert"
  end if
  multiply temp by 0.0022046
  put temp && " Pounds" into background field "answer"
  put empty into temp
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=282 top=135 right=162 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pounds to Grams
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Pounds" into background field "toconvert"
  else
    put temp && " Pounds" into background field "toconvert"
  end if
  divide temp by 0.0022046
  put temp && " Grams" into background field "answer"
  put empty into temp
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=282 top=223 right=250 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Metric Ton to English Ton
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Metric Tons" into background field "toconvert"
  else
    put temp && " Metric Tons" into background field "toconvert"
  end if
  multiply temp by 0.98421
  put temp && " English Tons" into background field "answer"
  put empty into temp
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=283 top=286 right=320 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Additional Notes
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card addinfo
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=282 top=251 right=278 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: English Ton to Metric Ton
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 English Tons" into background field "toconvert"
  else
    put temp && " English Tons" into background field "toconvert"
  end if
  multiply temp by 1.016
  put temp && " Metric Tons" into background field "answer"
  put empty into temp
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=281 top=165 right=192 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kilograms to Pounds
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Kilograms" into background field "toconvert"
  else
    put temp && " Kilograms" into background field "toconvert"
  end if
  multiply temp by 2.2046
  put temp && " Pounds" into background field "answer"
  put empty into temp
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=282 top=193 right=220 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pounds to Kilograms
----- HyperTalk script -----
on mouseUp
  set numberformat to 0.000
  put empty into background field "answer"
  get first word of background field "toconvert"
  put it into temp
  if temp is "-" then
    get second word of background field "toconvert"
    divide it by -1
    put it into temp
  end if
  put empty into background field "toconvert"
  if temp is empty then
    put temp && "0 Pounds" into background field "toconvert"
  else
    put temp && " Pounds" into background field "toconvert"
  end if
  divide temp by 2.2046
  put temp && " Kilograms" into background field "answer"
  put empty into temp
end mouseUp



-- part contents for background part 7
----- text -----
Weight
Conversions